home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 90 / CD Actual 90.iso / Software3D / VirtualLight / VLight1.3win32.exe / Examples / Level1 / Dispmap2.vs < prev    next >
Encoding:
Text File  |  2002-10-07  |  1.7 KB  |  48 lines
  1. ReadArchive "statics.vib"
  2.  
  3. Declare Met = Shader [ PlainSurface [
  4.   Color '.95,.95,1'
  5.   Kd 0.8
  6.   Ks 0.2
  7.   Kr 0.1
  8.   Kb 1.2
  9.   MetalAttribute 1.2
  10.   ReitzSpecularBRDF 18
  11.  ]
  12. ]
  13.  
  14. Declare veins = SpectrumOfColors(
  15.      [0.000, '0.898, 0.898, 0.851', 0.212, '0.969, 0.980, 0.875']
  16.      [0.212, '0.969, 0.980, 0.875', 0.424, '0.859, 0.859, 0.859']
  17.      [0.424, '0.859, 0.859, 0.859', 0.627, '0.992, 0.922, 0.659']
  18.      [0.627, '0.992, 0.922, 0.659', 0.881, '0.937, 0.965, 0.902']
  19.      [0.881, '0.937, 0.965, 0.902', 1.01,  '0.898, 0.898, 0.851'])
  20.  
  21. Declare veins_pattern = Shader [
  22.  FunctionalSurface [ Kd 0.85 Color veins[Agate] ]
  23. ]
  24.  
  25. static D = 0.3 * scnoise(Po,4)
  26.  
  27. static displace_test1 = ((v > 0.1 && v < 0.2) ||
  28.                          (v > 0.3 && v < 0.4) ||
  29.                          (v > 0.5 && v < 0.6) ||
  30.                          (v > 0.7 && v < 0.8) ||
  31.                          (v > 0.9 && v < 1.0) ||
  32.                          (u > 0.0 && u < 0.05) ||
  33.                          (u > 0.25 && u < 0.3) ||
  34.                          (u > 0.5 && u < 0.55) ||
  35.                          (u > 0.75 && u < 0.8)
  36.                          ? D : 0.0)
  37.  
  38. static displace_test2 = (((u > 0.0  && u < 0.05 && v > 0.45 && v < 0.55) ||
  39.                           (u > 0.25 && u < 0.3  && v > 0.45 && v < 0.55) ||
  40.                           (u > 0.5  && u < 0.55 && v > 0.45 && v < 0.55) ||
  41.                           (u > 0.75 && u < 0.8  && v > 0.45 && v < 0.55) ||
  42.                           (v > 0.95)) ? D*2.0 :
  43.                           (((u > 0.125 && u < 0.175) ||
  44.                           (u > 0.375 && u < 0.425) ||
  45.                           (u > 0.625 && u < 0.675) ||
  46.                           (u > 0.875 && u < 0.925))
  47.                           ? D : 0.0))
  48.